setdisplay(400,120,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
prints("pressing any key will clear this screen")
circle(40,60,20)
box(80,30,125,60)
ellipse(120,90,50,10)
waitkey
cls
if key(27)<>0 then:end:end if

